home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 7 / Mail_Madness_07_19xx_-_Side_B.d64 / the ice game (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  12KB  |  545 lines
  1. 1 print"[147]"
  2. 3 poke53280,0:poke53281,0:poke646,7
  3. 4 poke53272,22
  4. 5 mo=0:jr=1996:ge=1500:ko=500:ei=0:
  5. 6 d$="[205]arktplatz"
  6. 10 print"
  7. 11 [153]"
  8. 12 print"          [212][200][197] [201][195][197]-[195][210][197][193][205]-[205][193][206]
  9. 13 [153]"          -----------------
  10. 14 print"
  11. 15 [153]"   valine (NULL)imulation von (NULL)liver (NULL)oepke"
  12. 16 [153]"   tab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(usrtab(
  13. 17 print"
  14. 18 [153]"          (w)1996 by (NULL)left$val (NULL)(NULL)(NULL)(NULL)
  15. 19 print"
  16. 20 [153]"
  17. 21 print"
  18. 22 [153]"    str$iese (NULL)imulation ist 100 % (NULL)str$
  19. 23 print"    und darf von jeden an jeden
  20. 24 [153]"    weiterkopiert werden.
  21. 25 print"
  22. 26 [153]"
  23. 27 print"                         press space"
  24. 28 geta$:ifa$=""then28
  25. 29 print"[147]"
  26. 30 print"
  27. 31 [153]"  (NULL)ie der (NULL)ame schon sagt, bist du
  28. 32 print"  ein [197]ismann und versuchst nun
  29. 33 [153]"  einen recht hohen (NULL)msatz zu machen.
  30. 34 print"  [196]u musst [197][201][211] im [199]rosshandel kaufen,
  31. 35 [153]"  und an deinem kleinen (NULL)agen ver-
  32. 36 print"  kaufen.
  33. 37 [153]"  atnm valnde des (NULL)onats bekommst du
  34. 38 print"  eine [205]onatsabrechnung, wo [205]iete,
  35. 39 [153]"  valssen, (NULL)leidung, (NULL)teuern etc.
  36. 40 print"  abgezogen werden.
  37. 41 [153]"  atnber der lenompi bleibt hart.
  38. 42 print"  [193]uch wenn du monatlich zu
  39. 43 [153]"  wenig chr$eld hast, zieht er dir
  40. 44 print"  die [203]ohle ab.
  41. 45 [153]"
  42. 46 print"                         t a s t e
  43. 47 [161]a$:[139]a$[178]""[167]47
  44. 48 [153]"load"
  45. 49 [153]"
  46. 50 print"  [198]este monatliche [193]usgaben:
  47. 51 [153]"  tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  48. 52 print"  [205]iete fuer [215]ohnung: 745,00 [196][205]
  49. 53 [153]"  (NULL)iete fuer (NULL)agen  :  50,00 str$(NULL)
  50. 54 print"  [211]teuern           :  25,00 [196][205]
  51. 55 [153]"  (NULL)ersicherungen    : 160,00 str$(NULL)
  52. 56 print"  [206]ahrung           : 400,00 [196][205]
  53. 57 [153]"  (NULL)leidung          : 100,00 str$(NULL)
  54. 58 print"  sonstiges         :  75,00 [196][205]
  55. 59 [153]"  atnutorate          : 800,00 str$(NULL)                           ":[153]     
  56. 60 [153]"  chr$esammt           :2355,00 str$(NULL)
  57. 61 print"                     [163][163][163][163][163][163][163][163][163][163]
  58. 62 [153]"  right$n der (NULL)iete ist valnergie und
  59. 63 print"  [215]asser enthalten.
  60. 64 [153]"  str$u hast eine 3-(NULL)aum-(NULL)ohnung,
  61. 65 print"  weil du 1 [203]ind und 1 [198]rau hast.
  62. 66 [153]"  (ausser, wenn du eine ascrau bist!
  63. 67 print"  dann hast du halt ein [205]ann.)
  64. 68 [153]"
  65. 69 print"  [213]nter [214]ersicherungen sind alle
  66. 70 [153]"  zusammengefasst...nun die valinnahmen."
  67. 71 [161]a$:[139]a$[178]""[167]71
  68. 72 [153]"load"
  69. 73 [153]"
  70. 74 print"  [205]onatliche feste [197]innahmen:
  71. 75 [153]"  tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  72. 76 print"
  73. 77 [153]"  (NULL)ohn von ascrau/(NULL)ann:  1100,00 str$(NULL)
  74. 78 print"
  75. 79 [153]"  (NULL)indergeld (1(NULL)ind):   260,00 str$(NULL)
  76. 80 print"
  77. 81 [153]"  (NULL)ohngeld          :   200,00 str$(NULL)
  78. 82 print"
  79. 83 [153]"
  80. 84 print"  [199]esammt           :  1560,00 [196][205]"
  81. 85 print"                       [163][163][163][163][163][163][163][163][163][163]
  82. 86 [153]"
  83. 87 print"
  84. 88 [153]"  somit kommst du auf monatlich
  85. 89 print"  - 795,00 [196][205].
  86. 90 [153]"
  87. 91 print"  [196]as ist das [199]eld, was du mindestens
  88. 92 [153]"  reinbringen musst !
  89. 93 print"  [193]nsonsten landest du und deine
  90. 94 [153]"  ascamilie unter der peekruecke...
  91. 95 print"
  92. 96 [153]"
  93. 97 print"                      [212] a s t e
  94. 98 [161]a$:[139]a$[178]""[167]98
  95. 99 mo[178]mo[170]1
  96. 100 [153]"load"
  97. 102 [139]mo[178]13[167]mo[178]0:jr[178]jr[170]1:[137]946
  98. 103 [153]"load"
  99. 104 [153]"
  100. 105 print" [205]onat  : ";mo
  101. 106 print"
  102. 107 [153]" mid$ahr   : ";jr
  103. 108 [153]"
  104. 109 print" [203]apital: ";ge
  105. 110 print"
  106. 111 [153]" valis    : ";ei
  107. 112 [153]"
  108. 113 print" [207]rt    : ";d$
  109. 114 print"
  110. 115 [153]"
  111. 116 print" -1- [197]is im [199]rosshandel kaufen
  112. 117 [153]"
  113. 118 print" -2- [194]ank ([199]uthaben:";ko;" [196][205])"
  114. 119 print"
  115. 120 [153]" -3- (NULL)ebersicht"
  116. 121 [153]"
  117. 122 print" -4- [214]erkaufstag => [205]onatsende"
  118. 123 print"
  119. 124 [161]a$:[139]a$[178]""[167]124
  120. 125 [139]a$[178]"1"[167][137]130
  121. 126 [139]a$[178]"2"[167][137]200
  122. 127 [139]a$[178]"3"[167][137]300
  123. 128 [139]a$[178]"4"[167][137]340
  124. 129 [137]100
  125. 130 [153]"load"
  126. 131 [153]"
  127. 132 print" [199]rosshandel:
  128. 133 [153]" tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  129. 134 print"
  130. 135 [153]" peekilliger geht's (NULL)right$val(NULL)chr$val(NULL)str$(NULL)!
  131. 136 print"
  132. 137 [153]" valine (NULL)ugel valright$(NULL) vom besten zum
  133. 138 print" [211]pottpreis von nur 0.38 [196][205].
  134. 139 [153]"
  135. 140 print" '[199]uten [212]ag, der [200]err!
  136. 141 [153]"  womit kann ich dienen ?'
  137. 142 print"
  138. 143 [153]"
  139. 144 print" -1- [201]ch haette gerne [197][201][211] gekauft"
  140. 145 print"
  141. 146 [153]" -2- (NULL)h valhm...ich bin wohl falsch"
  142. 147 [161]a$:[139]a$[178]""[167]147
  143. 148 [139]a$[178]"1"[167][137]151
  144. 149 [139]a$[178]"2"[167][137]100
  145. 150 [137]130
  146. 151 [153]"load"
  147. 152 [153]"
  148. 153 print"  [215]ieviel [197]is moechten sie ?"
  149. 154 print"
  150. 155 [133]zl
  151. 156 ge[178]ge[171](zl[172]0.38):ei[178]ei[170]zl
  152. 157 [153]"
  153. 158 print"  [203]apitat:";ge
  154. 159 print"
  155. 160 [153]"  valis    :";ei
  156. 161 [153]"
  157. 162 print"
  158. 163 [153]"
  159. 164 print"
  160. 165 [153]"                             - taste - "
  161. 166 [161]a$:[139]a$[178]""[167]166
  162. 167 [153]"load"
  163. 168 [153]" 'right$ch hoffe, sie sind mit unserem
  164. 169 print"
  165. 170 [153]" valis zufrieden, und moechte sie
  166. 171 print"
  167. 172 [153]" nochmals darauf hinweisen, dass
  168. 173 print"
  169. 174 [153]" man monatlich mindestens 100
  170. 175 print"
  171. 176 [153]" (NULL)ortionen valis benoetigt.'
  172. 177 print"
  173. 178 [153]"
  174. 179 print" '[215]aeren sie so grosszuegig, und
  175. 180 [153]" wuerden diese (NULL)erbezettel an
  176. 181 print" alle [197]iskaeufer verteilen ?'
  177. 182 [153]"
  178. 183 print" (j/n)"
  179. 184 geta$:ifa$=""then184
  180. 185 ifa$="j"thengoto190
  181. 186 ifa$="n"thengoto100
  182. 187 goto100
  183. 190 print"[147]"
  184. 191 print"
  185. 192 [153]" '(NULL)ielen dank! (NULL)ie erhalten dafuer
  186. 193 print" 10 [208]ortionen [197]is [199][210][193][212][201][211] !'"
  187. 194 ei=ei+10
  188. 195 geta$:ifa$=""then195
  189. 196 goto100
  190. 197 print"
  191. 198 [153]"
  192. 199 print"
  193. 200 [153]"load"
  194. 201 [153]"
  195. 202 print"  [193]uf der [194]ank...."
  196. 203 print"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  197. 204 [153]"
  198. 205 print"  [196]ein [203]onto ist dein ein und alles."
  199. 206 print"  [196]ie [202]ahresabrechnung erfolgt
  200. 207 [153]"  immer uebers (NULL)onto.
  201. 208 print"  [214]ersuche also zu verhinder, dass
  202. 209 [153]"  du einen negativen peeketrag auf
  203. 210 print"  dein [203]onto hast.
  204. 211 [153]"  (NULL)ahle am besten auch chr$eld ein,
  205. 212 print"  wenn du etwas uebrig hast !
  206. 213 [153]"  str$u kannst nie (!) genug chr$eld
  207. 214 print"  auf dein [203]onto haben...
  208. 215 [153]"
  209. 216 print"                         t a s t e"
  210. 217 geta$:ifa$=""then217
  211. 218 print"[147]"
  212. 219 print"
  213. 220 [153]" (NULL)erhindere unbedingt einen
  214. 221 print" negativen [199]eldbetrag auf deinem
  215. 222 [153]" (NULL)onto.
  216. 223 print"
  217. 224 [153]"
  218. 225 print" - 1 -  [199]eld einzahlen
  219. 226 [153]"
  220. 227 print" - 2 -  [199]eld abheben
  221. 228 [153]"
  222. 229 print" - 3 -  [200]auptmenue
  223. 230 [153]"
  224. 231 gete$:ife$=""then231
  225. 232 ife$="1"thengoto240
  226. 233 ife$="2"thengoto270
  227. 234 ife$="3"thengoto100
  228. 235 goto218
  229. 236 print"
  230. 237 [153]"
  231. 238 print"
  232. 239 [153]"
  233. 240 print"[147]"
  234. 241 print"
  235. 242 [153]" (NULL)ontostand: ";ko
  236. 243 [153]"
  237. 244 print" [203]apital   : ";ge
  238. 245 print:print:print:print:print
  239. 246 print"
  240. 247 [153]"  (NULL)ieviel geld moechtest du einzahlen ?
  241. 248 print"
  242. 249 [133]tt
  243. 250 ge[178]ge[171]tt:ko[178]ko[170]tt
  244. 251 [153]"
  245. 252 print" neuer [203]ontostand: ";ko
  246. 253 print"
  247. 254 [153]" neuer (NULL)apitalst.: ";ge
  248. 255 [153]"
  249. 256 print"
  250. 257 [153]" -1- weitere atnrbeiten auf der
  251. 258 print"     [194]ank erledigen
  252. 259 [153]"
  253. 260 print" -2- [200]auptmenue
  254. 261 [153]"
  255. 262 gete$:ife$=""then262
  256. 263 ife$="1"thengoto200
  257. 264 ife$="2"thengoto100
  258. 265 goto100
  259. 266 print"
  260. 267 [153]"
  261. 268 print"
  262. 269 [153]"
  263. 270 print"[147]"
  264. 271 print"
  265. 272 [153]"  chr$eld vom (NULL)onto abheben...
  266. 273 print"  [163][183][184][163][183][184][163][183][184][163][183][184][163][183][184][163][183][184][163][183][184][163][183][184][163]
  267. 274 [153]"  (NULL)ontostand: ";ko
  268. 275 [153]"
  269. 276 print"  [203]apital   : ";ge
  270. 277 print:print
  271. 278 print"
  272. 279 [153]:[153]
  273. 280 [153]:[153]
  274. 281 [153]"  (NULL)ieviel chr$eld moechtest du vom
  275. 282 print"  [203]onto abheben ???
  276. 283 [153]"
  277. 284 inputtt
  278. 285 ge=ge+tt:ko=ko-tt
  279. 286 print"[147]"
  280. 287 print"
  281. 288 [153]"  (NULL)ontostand: ";ko
  282. 289 [153]"
  283. 290 print"  [203]apital   : ";ge
  284. 291 print"
  285. 292 [139]ko[179]0[167][137]296
  286. 293 [153]"                             - (NULL)atn(NULL)(NULL)val-"
  287. 294 [161]a$:[139]a$[178]""[167]294
  288. 295 [137]100
  289. 296 [153]::[153]"load":[153]" atnlenleft$(NULL)(NULL)(NULL)chr$! str$(NULL)closeleft$atn(NULL)(NULL)closevalright$(NULL)val(NULL)close(NULL)valchr$atn(NULL)right$(NULL)val(NULL)
  290. 297 print" [199][197][204][196][194][197][212][210][193][199][160][193][213][198][160][196][197][201][206][197][205][160][203][207][206][212][207] !!!!
  291. 298 [153]:[153]:[153]:[153]
  292. 299 [137]293
  293. 300 [153]"load":[151]646,1
  294. 301 [153]"         ortantantantantantantantantantantantantantantantantantantan^
  295. 302 print"         [221][213][160][197][160][194][160][197][160][210][160][211][160][201][160][195][160][200][160][212][221]
  296. 303 [153]"         /tantantantantantantantantantantantantantantantantantantanexp
  297. 304 poke646,7
  298. 305 print"
  299. 306 [153]"  (NULL)onat                    : ";mo
  300. 307 [153]"
  301. 308 print"  [202]ahr                     : ";jr
  302. 309 print"
  303. 310 [153]"  (NULL)apital                  : ";ge
  304. 311 [153]"
  305. 312 print"  [203]ontostand               : ";ko
  306. 313 print"
  307. 314 [153]"  valis                      : ";ei
  308. 315 [153]"
  309. 316 print"  [207]rt                      : ";d$
  310. 317 print"
  311. 318 [153]"  chr$ewinn des letzten (NULL)onats: ";gw
  312. 319 [153]"
  313. 320 print"  [197]innahmen gesammt        : ";zi
  314. 321 print"
  315. 322 [161]a$:[139]a$[178]""[167]322
  316. 323 [153]"load"
  317. 324 [153]"
  318. 325 print"  [197]inkaufspreis/[203]ugel      :  0.38
  319. 326 [153]"
  320. 327 print"  [214]erkaufspreis/[203]ugel      : ";kg
  321. 328 print"
  322. 329 [153]"
  323. 330 print"  [198]este monatl.[193]usgaben    :  2355.00
  324. 331 [153]"
  325. 332 print"  [198]este monatl.[197]innahmen   :  1560.00
  326. 333 [153]"
  327. 334 print"
  328. 335 [153]"                           * (NULL)aste *
  329. 336 geta$:ifa$=""then336
  330. 337 goto100
  331. 340 print"[147]"
  332. 341 gw=0:kg=0:cj=0
  333. 342 print"[147]"
  334. 343 print"
  335. 344 [153]"  (NULL)o willst du dich diesen (NULL)onat
  336. 345 print"  hinstellen ?"
  337. 346 print"
  338. 347 [153]"
  339. 349 print"  a[146]  [205]arktplatz
  340. 350 [153]"  bwait  str$omplatz
  341. 351 print"  c[146]  [211]portschule [207]st
  342. 352 [153]"  dwait  len.(NULL)eiss chr$ymnasium
  343. 353 print"  e[146]  [193]m [203]ichturm
  344. 354 [153]"  fwait  (NULL)artin-(NULL)uther-(NULL)eg
  345. 355 print"  g[146]  [211]an [205]atrino [211]treet
  346. 356 [153]"  hwait  chr$oetheplatz
  347. 357 print"  i[146]  [199]rund-& [210]ealschule
  348. 358 [153]"  jwait  (NULL)allorca-(NULL)trasse
  349. 359 print"  k[146]  [202].[215].[199]oethe - [211]tr.
  350. 360 [153]"
  351. 361 geta$:ifa$=""then361
  352. 362 ifa$="a"thend$="[205]arktplatz ":goto374
  353. 363 ifa$="b"thend$="[196]omplatz   ":goto374
  354. 364 ifa$="c"thend$="[211]portschule [207]st ":goto374
  355. 365 ifa$="d"thend$="[195].[218]eiss [199]ymnasium ":goto374
  356. 366 ifa$="e"thend$="[193]m [203]irchturm    ":goto374
  357. 367 ifa$="f"thend$="[205].-[204]uther [215]eg   ":goto374
  358. 368 ifa$="g"thend$="[211]an [205]atrino- [211]tr.":goto374
  359. 369 ifa$="h"thend$="[199]oetheplatz      ":goto374
  360. 370 ifa$="i"thend$="[199]rund-& [210]ealschule":goto374
  361. 371 ifa$="j"thend$="[205]allorca-[211]tr.":goto374
  362. 372 ifa$="k"thend$="[202].[215].[199]oethe - [211]tr.":goto374
  363. 373 goto340
  364. 374 print"[147]"
  365. 375 print"
  366. 400 [153]"
  367. 401 print"  [207]rt: ";d$
  368. 403 print"
  369. 404 [153]"  valis: ";ei
  370. 405 [153]"
  371. 406 print"
  372. 407 [153]"
  373. 408 print"  [215]ie teuer soll eine [203]ugel [197]is bei
  374. 409 [153]"  dir sein ?":ei[178]ei[170]1
  375. 410 [153]"
  376. 411 inputkg
  377. 412 ifkg=>3thenprint"[200][193][204][211][193][194][211][195][200][206][197][201][196][197][210]!":goto406
  378. 413 print"[147]"
  379. 414 print"
  380. 415 o[178][181](40[172][187](1)[170]1)
  381. 416 [139]o[178]1[167]cj[178] 21
  382. 417 [139]o[178]2[167]cj[178] 42
  383. 418 [139]o[178]3[167]cj[178]63
  384. 419 [139]o[178]4[167]cj[178]84
  385. 420 [139]o[178]5[167]cj[178]105
  386. 421 [139]o[178]6[167]cj[178]156
  387. 422 [139]o[178]7[167]cj[178]207
  388. 423 [139]o[178]8[167]cj[178]311
  389. 424 [139]o[178]9[167]cj[178]349
  390. 425 [139]o[178]10[167]cj[178]378
  391. 426 [139]o[178]11[167]cj[178]407
  392. 427 [139]o[178]12[167]cj[178]411
  393. 428 [139]o[178]13[167]cj[178]469
  394. 429 [139]o[178]14[167]cj[178]513
  395. 430 [139]o[178]15[167]cj[178]119
  396. 431 [139]o[178]16[167]cj[178]150
  397. 432 [139]o[178]17[167]cj[178]1001
  398. 433 [139]o[178]18 [167]cj[178]2110
  399. 434 [139]o[178]19 [167]cj[178]6811
  400. 435 [139]o[178]20 [167]cj[178]1
  401. 436 [139]o[178]21[167]cj[178] 20
  402. 437 [139]o[178]22[167]cj[178] 40
  403. 438 [139]o[178]23[167]cj[178]60
  404. 439 [139]o[178]24[167]cj[178]80
  405. 440 [139]o[178]25[167]cj[178]189
  406. 441 [139]o[178]26[167]cj[178]150
  407. 442 [139]o[178]27[167]cj[178]203
  408. 443 [139]o[178]28[167]cj[178]304
  409. 444 [139]o[178]29[167]cj[178]349
  410. 445 [139]o[178]30[167]cj[178]378
  411. 446 [139]o[178]31[167]cj[178]466
  412. 447 [139]o[178]32[167]cj[178]411
  413. 448 [139]o[178]33[167]cj[178]469
  414. 449 [139]o[178]34[167]cj[178]512
  415. 450 [139]o[178]35[167]cj[178]1809
  416. 451 [139]o[178]36[167]cj[178]1065
  417. 452 [139]o[178]37[167]cj[178]11043
  418. 453 [139]o[178]38 [167]cj[178]12122
  419. 454 [139]o[178]39 [167]cj[178]16809
  420. 455 [139]o[178]40 [167]cj[178]100121
  421. 456 [139]cj[177]ei[167][137]413
  422. 457 [153]"load"
  423. 458 [153]"  atnnzahl verkauftes valis: ";cj
  424. 459 [153]"
  425. 460 gw=cj*kg:ei=ei-cj
  426. 520 print"
  427. 521 [153]"  chr$ewinn durch (NULL)erkauf : ";gw
  428. 523 [153]:[153]
  429. 524 [153]"  (NULL)apital  (alt)       : ";ge
  430. 525 [153]"
  431. 526 print"
  432. 527 [153]"                            (NULL)atn(NULL)(NULL)val"
  433. 528 [161]a$:[139]a$[178]""[167]528
  434. 529 [153]"load"
  435. 530 [153]"
  436. 531 print" [193]usgaben:"
  437. 532 print" [163][163][163][163][163][163][163][163]
  438. 533 [153]" feste atnusgaben: 2355,00 str$(NULL)
  439. 534 print"
  440. 535 [153]" (NULL)ontogeld     :  100,00 str$(NULL)
  441. 536 print"
  442. 537 [153]"
  443. 538 print" [197]innahmen:"
  444. 539 print" [163][163][163][163][163][163][163][163][163]"
  445. 540 print" feste [197]innahm.: 1560,00 [196][205]
  446. 541 [153]"
  447. 630 print" [197]is-[199]ewinn    : ";gw
  448. 631 print"
  449. 632 [153]"
  450. 633 ko=ko+100:ge=ge-100
  451. 634 ko=ko-2355
  452. 635 ko=ko+1560
  453. 636 ko=ko+gw
  454. 637 print"
  455. 638 [153]"                           - (NULL)atn(NULL)(NULL)val -
  456. 639 geta$:ifa$=""then639
  457. 640 print"[147]"
  458. 641 print"
  459. 730 [153]" (NULL)apital   :";ge
  460. 731 [153]"
  461. 732 print" [203]ontostand:";ko
  462. 733 print"
  463. 734 [153]" valis       :";ei
  464. 735 [153]"
  465. 736 zi=zi+gw
  466. 737 print"
  467. 738 [153]"                          (NULL)closeatnclose(NULL)close(NULL)closeval
  468. 739 geta$:ifa$=""then739
  469. 740 print"[147]"
  470. 830 print"[147]"
  471. 831 print"
  472. 832 o[178][181](6[172][187](1)[170]1)
  473. 833 [139]o[178]1[167]f$[178]"str$ein (NULL)ind will ein len64 (NULL)piel - 59.90 str$(NULL)":ge[178]ge[171]59.90
  474. 834 [139]o[178]2[167]f$[178]"atnuto-(NULL)eperaturkosten : 127.89 str$(NULL)":ge[178]ge[171]127.89
  475. 835 [139]o[178]3 [167]f$[178]"atnutounfall! (NULL)elbstbeteidigung 600 str$(NULL)":ge[178]ge[171]600
  476. 836 [139]o[178]4[167]f$[178]"atnuto defekt! (NULL)axi-kosten 48.70 str$(NULL)":ge[178]ge[171]48.70
  477. 837 [139]o[178]5[167]f$[178]"str$ein (NULL)ind will ein len64 peekuch - 30 str$(NULL)":ge[178]ge[171]30
  478. 838 [139]o[178]6[167]f$[178]"str$eine ascrau will ein (NULL)leid - 198.90 str$(NULL)":ge[178]ge[171]198.90
  479. 842 o[178][181](6[172][187](1)[170]1)
  480. 843 [139]o[178]1[167]f$[178]"(NULL)ottogewinn = 690,89 str$(NULL)              ":ge[178]ge[170]690.89
  481. 844 [139]o[178]2[167]t$[178]"str$u erbst 100 str$(NULL) (lach!)":ge[178]ge[170]100.00
  482. 845 [139]o[178]3[167]t$[178]"peekeitragsrueckzahlung= 89.00 str$(NULL)":ge[178]ge[170]89.00
  483. 846 [139]o[178] 4 [167]t$[178]"str$u hilfst beim (NULL)mzug -> 60.00 str$(NULL)":ge[178]ge[170]60.00
  484. 847 [139]o[178] 5 [167]t$[178]"str$ein (NULL)ind verkauft len64 (NULL)oft! -> 30 str$(NULL)":ge[178]ge[170]30
  485. 848 [139]o[178] 6 [167]t$[178]"str$u findest im (NULL)ark chr$eld....198.90 str$(NULL)":ge[178]ge[170]198.90
  486. 930 [153]"load"
  487. 931 [153]"
  488. 932 print" sonstige [193]usgaben:"
  489. 933 print" [163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163]
  490. 934 [153]f$
  491. 935 [153]"
  492. 936 print" sonstige [197]innahmen:"
  493. 937 print" [163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183]
  494. 938 [153]t$
  495. 939 [153]"
  496. 940 print:print:print:print
  497. 941 print:print:print:print
  498. 942 print:print:print:print
  499. 943 print"                             * [212][193][211][212][197][160]*
  500. 944 [161]a$:[139]a$[178]""[167]944
  501. 945 [137]99
  502. 946 [153]"load"
  503. 947 [153]"
  504. 948 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  505. 949 [153]" (NULL) mid$closeatncloseleft$close(NULL)closevalclose(NULL)closeatnclosepeekclose(NULL)closevalcloselencloseleft$close(NULL)close(NULL)close(NULL)closechr$close   (NULL)
  506. 950 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  507. 951 [153]"
  508. 953 print" [197]innahmen/gesammtes [202]ahr:";zi
  509. 954 xx=zi/15
  510. 955 print"
  511. 956 [153]" zu zahlende (NULL)teuern     :";xx
  512. 957 [153]"
  513. 958 ko=ko-xx
  514. 959 zi=0:xx=0
  515. 960 print"
  516. 961 [153]" (NULL)ontostand: ";ko
  517. 963 [153]"
  518. 964 print" [203]apital:    ";ge
  519. 965 print"
  520. 966 [153]"                          * (NULL)closeatnclose(NULL)close(NULL)closeval *"
  521. 967 [161]a$:[139]a$[178]""[167]967
  522. 968 jt[178]ge[170]ko
  523. 969 [139]jt[178][177]1000000[167][137]971
  524. 970 [137]99
  525. 971 [153]"load"
  526. 973 [153]"
  527. 974 print"  [196]u hast es wirklich geschafft,
  528. 975 [153]"  und 1 (NULL)illionen str$(NULL) zusammenge-
  529. 976 print"  schaeffelt.
  530. 977 [153]"  str$u baust dir ein left$aus, und setzt
  531. 978 print"  dich zur [210]uhe. [196]ein [203]ind wird
  532. 979 [153]"  gross und geht in die (NULL)ehre...
  533. 1000 print"  ...als [197][201][211][205][193][206][206].....
  534. 1001 [153]"
  535. 1002 print"
  536. 1003 [153]"                       valclose(NULL)closestr$closeval
  537. 1004 geta$:ifa$=""then1004
  538. 1005 print"
  539. 1006 [153]" lenontact me !
  540. 1007 print" [163][163][163][163][163][163][163][163][163][163][163][163]
  541. 1008 [153]" (NULL)liver (NULL)oepke
  542. 1009 print" [197].-[200]aeckel-[211]tr.13
  543. 1010 [153]" 99097 val(NULL)asc(NULL)(NULL)(NULL)/(NULL)hueringen
  544. 1011 new
  545.